home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 25
/
Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso
/
Aminet
/
comm
/
bbs
/
ALC_RC10.lha
/
REALCHECK.DD
< prev
next >
Wrap
Text File
|
1996-12-24
|
4KB
|
2 lines
/* Optimized with RexxOpt 1.8 */
parse arg node;Options results;nodeid="DREAMREXX"node;address value nodeid;signal on error;signal on syntax;signal on ioerr;if ~exists("ENV:DreamUtils") then call END;call open(DU,"ENV:DreamUtils",'R');do;DreUti=ReadLn(DU);end;call Close(DU);call open(CFG,''DreUti'RealCheck.CFG','R');do;chk=STRIP(readln(CFG));dmschk=STRIP(readln(CFG));adda=STRIP(readln(CFG));add1=STRIP(readln(CFG));mapus=STRIP(readln(CFG));stpfiel=STRIP(readln(CFG));end;call Close(CFG);systeminfo 3;file=result;nl=newline;tr=transmit;ex=fifoexecute;tr1="7H
---------------27H
Adds stripped, adding own adds.. ";tr2="2H
---------------27H
Adds have been added, checking file.. ";tr3="7H
---------------27H
File have been checked, file ok! ";tr5="0H
-----------------------------------------------27H
Checking DMS file with MAPUS... ";pth="Daydream:Temporary/";y=0;if lastpos('.',file)=0 then call END;what=strip(upper(substr(file,lastpos('.',file),(length(file)-(lastpos('.',file)-1)))));if what=".LHA"|what=".LZH"|what=".LZX"|what=".ZIP"|what=".TXT"|what=".NFO"|what=".DOC"|what=".DMS" then y=1;if y=0 then call END;if what=".LHA"|what=".LZH" then typ="LHA File";if what=".LZX" then typ="LZX File";if what=".TXT"|what=".DOC"|what=".NFO" then typ="Text File";if what=".ZIP" then typ="ZIP File";if what=".DMS"|dmschk="Y" then typ="DMS File";INTCOMMAND "CLS";nl;tr "
__ __";tr " _____/\\/_____
Real Checker / Alcizoft ^ 1996
_____\//\_____";tr " \/
_________________
\/
___";tr "
\
/";tr "
Current File
.: [
"center(file,18)"
]
File Type
.: [
"center(typ,10)"
]";tr "
\
/";tr "
";tr "
0
%
25
%
50
%
\
75
%
/
100
%";tr "
\
/";tr "
Status
.......: [ ]";tr " _ _______________________________________________________ __";tr "
(
_
\\
______________________________________________________
\\
_
)";tr "
·
·";tr "
Original code
:
BigBang
-
Tune Up
:
Alcatraz
\
/";tr "0H
-----------------27H
Fileformat recognized, stripping adds.. ";if what=".LHA"|what=".LZH" then call LHA;if what=".LZX" then call LZX;if what=".ZIP" then call ZIP;if what=".TXT"|what=".NFO"|what=".DOC" then call TXT;if what=".DMS"|dmschk="Y" then call DMS;call END;LHA:;ex "LHA d >NIL: "pth"Node"node"/"file" @"stpfiel"";tr ""tr1"";if adda="N" then call noadd;ex "LHA a >NIL: "pth"Node"node"/"file" "add1"";tr ""tr2"";nl;nl;nl;nl;noadd:;tr ""tr2"";if chk="Y" then call CHKLHA;else;do;tr ""tr3"";nl;nl;nl;call END;end;CHKLHA:;ex "LHA t >NIL: "pth"Node"node"/"file"";tr ""tr3"";nl;nl;nl;call END;LZX:;tr ""tr1"";nl;nl;nl;nl;nl;if adda="N" then call CTB1;ex "LZX a -1 >NIL: "pth"Node"node"/"file" "add1"";tr ""tr2"";nl;nl;nl;nl;CTB1:;tr ""tr2"";if chk="Y" then call CHKLZX;else;do;tr ""tr3"";nl;nl;nl;call END;end;CHKLZX:;ex "LZX t >NIL: "pth"Node"node"/"file"";tr ""tr3"";nl;nl;nl;call END;ZIP:;tr ""tr1"";nl;nl;nl;nl;nl;nl;if adda="N" then call CTD1;ex "ZIP >NIL: -1 -q "pth"Node"node"/"file" "add1"";tr ""tr2"";nl;nl;nl;nl;CTD1:;tr ""tr2"";if chk="Y" then call CHKZIP;do;tr ""tr3"";nl;nl;nl;call END;end;CHKZIP:;ex "ZIP >NIL: -T "pth"Node"node"/"file"";tr ""tr3"";nl;nl;nl;call END;TXT:;tr ""tr1"";ex "Join "add1" "file" AS Ram:MagicArc.temp";ex "Join Ram:MagicArc.temp "add1" AS "file"";tr ""tr2"";ex "Delete Ram:MagicArc.temp QUIET";tr ""tr3"";nl;nl;nl;call END;error:;syntax:;ioerr:;call END;DMS:;tr ""tr5"";ex ""mapus" "file"";tr ""tr3"";nl;nl;nl;nl;call END;END:;nl;nl;nl;shutdown;exit
